home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs17.d81 / cad401.sfx / ‰ (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  2KB  |  79 lines
  1. 1 OPEN15,D0,15,"UI:":CLOSE15
  2. 2 A=USR(0),0,1,4:A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(17)
  3. 3 A=USR(1)
  4. 4 PRINTCHR$(14)"[147][211][193][214][197]
  5. 5 [153]"LENHOOSE THE FILE FORMAT:
  6. 6 PRINT"1 - [196]OODLE COMPRESSED ([195][211]LIDE)
  7. 7 [153]"2 - STR$OODLE
  8. 8 PRINT"3 - [200]IRES (33 BLOCK)
  9. 9 [153]"4 - (null)UN (null)ENGTH VALNCODED ((null)(null)VAL)
  10. 10 PRINT"> ";
  11. 11 GETA$:IFA$=""THEN11
  12. 12 IFA$<"1"ORA$>"4"THENA$="1"
  13. 13 PRINTA$
  14. 14 PRINT"$ FOR DIRECTORY
  15. 15 FI$[178]"":[133]"ASCILENAME:";FI$
  16. 16 [139]FI$[178]"$"[167][158]36906:[137]15
  17. 17 [139][195](FI$)[179]2[167]34
  18. 18 [139][195](FI$)[177]16[167][153]"ASCILENAME IS TOO LONG.":[137]15
  19. 19 [145][197](A$)[141]41,43,45,47
  20. 20 [159]15,D1,15,"S0:"[170]FI$:[160]15
  21. 21 [151]183,[195](FI$):[129]T[178]1[164][195](FI$):[151]827[170]T,[198]([202](FI$,T,1)):[130]
  22. 22 A[178][183](0),1,7,14:A[178][183](1):A[178][183](16):A[178][183](34),16,Y,6:A[178][183](34),X,231,7
  23. 23 [145][197](A$)[141]50,52,54,59
  24. 24 A[178][183](0),0,1,4:A[178][183](33),0:A[178][183](34),0,Y,6:A[178][183](34),X,255,7:A[178][183](17)
  25. 25 A[178][183](1):[159]15,D1,15,"UI:":[160]15:[153][199](14)
  26. 26 [139]D0[178]D1[167][153]"RIGHT$NSERT (null)(null)(null)CHR$(null)ATN(null) DISK IN DRIVE";D0
  27. 27 [153]"(null)RESS ANY KEY.":[153]"  '!' TO LOAD SCREEN 2 "
  28. 28 [153]"  '*' TO RETRY"
  29. 29 [161]A$:[139]A$[178]""[167]29
  30. 30 [139]A$[178]"!"[167][158]36867:[153]"LOAD--(null)CREENS SWITCHED--":FI$[178]"":[137]4
  31. 31 [139]A$[178]"*"[167]4
  32. 32 [159]15,D0,15:[159]2,D0,2,"BOOT,P,R":[160]2:[161]#15,E:[152]15,"UI:":[160]15
  33. 33 [139]E[179][177]0[167][153]"(null)ROGRAM DISK NOT PRESENT.":[137]26
  34. 34 [153]"LOAD":A[178][183](0),1,7,14:A[178][183](1):A[178][183](16):A[178][183](33),0
  35. 35 A[178][183](34),8,Y,6:A[178][183](34),X,231,7
  36. 36 [158]36912
  37. 37 [161]A$:[139]A$[178]""[167]37
  38. 38 [151]780,[198](A$):[158]32813
  39. 39 [139]A$[178][199](137)[167]2
  40. 40 [137]36
  41. 41 [139][200](FI$,2)[179][177]"JJ"[167]FI$[178]"JJ"[170]FI$
  42. 42 [142]
  43. 43 [139][200](FI$,2)[179][177]"DD"[167]FI$[178]"DD"[170]FI$
  44. 44 [142]
  45. 45 [139][201](FI$,3)[179][177]".HR"[167]FI$[178]FI$[170]".HR"
  46. 46 [142]
  47. 47 [139][201](FI$,4)[179][177]".RLE"[167]FI$[178]FI$[170]".RLE"
  48. 48 FI$[178]FI$[170]",S,W"
  49. 49 [142]
  50. 50 [158]32789
  51. 51 [142]
  52. 52 [158]36873
  53. 53 [142]
  54. 54 [151]780,0:[151]781,D1:[151]782,0:[158]65466
  55. 55 [151]780,[195](FI$):[151]781,828[175]255:[151]782,828[173]256:[158]65469
  56. 56 [151]247,0:[151]248,96
  57. 57 [151]780,247:[151]781,0:[151]782,128:[158]65496
  58. 58 [142]
  59. 59 [129]T[178]0[164]3:A[178][183](33),T:[130]
  60. 60 X1[178]24:X2[178]256:Y1[178]50:Y2[178]221
  61. 61 A[178][183](39),0,35:A[178][183](39),1,36:A[178][183](39),2,37:A[178][183](39),3,38
  62. 62 A[178][183](34),X1,Y1,0:A[178][183](34),X2,Y1,1:A[178][183](34),X1,Y2,2:A[178][183](34),X2,Y2,3
  63. 63 [129]T[178]0[164]3:A[178][183](32),T:[130]
  64. 64 X1[178]X1[170][183](121)[172]8
  65. 65 Y1[178]Y1[171][183](122)[172]8
  66. 66 [139]X1[179]24[167]X1[178]24
  67. 67 [139]X1[177]88[167]X1[178]88
  68. 68 [139]Y1[179]50[167]Y1[178]50
  69. 69 [139]Y1[177]58[167]Y1[178]58
  70. 70 X2[178]X1[170]232:Y2[178]Y1[170]171
  71. 71 A[178][183](34),X1,Y1,0:A[178][183](34),X2,Y1,1:A[178][183](34),X1,Y2,2:A[178][183](34),X2,Y2,3
  72. 72 A[178][183](117):[139]A[179][177]16[167]64
  73. 73 [129]T[178]0[164]3:A[178][183](33),T:[130]
  74. 74 A[178][183](39),0,16:A[178][183](39),1,17:A[178][183](39),2,17:A[178][183](39),3,17
  75. 75 A[178][183](34),0,Y,6:A[178][183](34),X,255,7
  76. 76 [151]781,(X1[171]24)[173]8:[151]782,(Y1[171]50)[173]8
  77. 77 [158]32798
  78. 78 [142]
  79.